From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 10 Sep 2001 13:41:21 +0000 (+0000)
Subject: allocate_buffer): Call VALIDATE_LISP_STORAGE.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~62110
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=11d8165033f5227cfc6bf3b1b15498d1168fb108;p=emacs.git

allocate_buffer): Call VALIDATE_LISP_STORAGE.
---

diff --git a/src/alloc.c b/src/alloc.c
index 5c0e0dd3c68..b048d04e645 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -611,8 +611,11 @@ lisp_malloc (nbytes, type)
 struct buffer *
 allocate_buffer ()
 {
-  return (struct buffer *) lisp_malloc (sizeof (struct buffer),
-					MEM_TYPE_BUFFER);
+  struct buffer *b 
+    = (struct buffer *) lisp_malloc (sizeof (struct buffer),
+				     MEM_TYPE_BUFFER);
+  VALIDATE_LISP_STORAGE (b, sizeof *b);
+  return b;
 }